SST P  $MAINBLK       1       0       0     524       0
 SST P  AA000001       2      12       0       0      12
 LOC     0
 BGN 1,0,0
AA000001 ENT P,2,L1  AA             1 1 1
 LOD I,2,8
 LOD I,1,64
 EQU I
 FJP L2
 LDA 1,13
 CSP  SIO
 LCA 'A1 = M1'
 LDC I,7
 LDC I,7
 LOC    10
 CSP  WRS
 CSP  EIO
 UJP L3
L2 LAB
 LDA 1,13
 CSP  SIO
 LCA 'A1 <> M1'
 LDC I,8
 LDC I,8
 CSP  WRS
 CSP  EIO
L3 LAB
 LOC    20
 RET P
L1 DEF        20
 SST P  BB000002       2      12       0      12      12
 LOC     0
BB000002 ENT P,2,L1  BB             1 1 1
 LDA 1,13
 CSP  SIO
 LCA 'THIS IS BB'
 LDC I,10
 LDC I,10
 CSP  WRS
 CSP  EIO
 LOD I,2,8
 STR I,2,28
 LOC    10
 LOD I,2,12
 STR I,2,24
 LOD I,2,16
 STR I,2,20
 MST 2,12,12
 LOD I,2,28
 PAR I
 LOD I,2,24
 PAR I
 LOD I,2,20
 LOC    20
 PAR I
 CUP P,6,AA000001
 RET P
L1 DEF        32
 SST P  CC000003       2      12       0      12      12
 LOC     0
CC000003 ENT P,2,L1  CC             1 1 1
 LOD I,2,8
 STR I,2,28
 LOD I,2,12
 STR I,2,24
 LOD I,2,16
 STR I,2,20
 LDA 1,13
 CSP  SIO
 LCA 'THIS IS CC'
 LOC    10
 LDC I,10
 LDC I,10
 CSP  WRS
 CSP  EIO
 MST 2,12,12
 LOD I,2,28
 PAR I
 LOD I,2,24
 PAR I
 LOD I,2,20
 LOC    20
 PAR I
 CUP P,6,BB000002
 RET P
L1 DEF        32
 LOC     0
$MAINBLK ENT P,1,L3  $MAINBLK       1 1 1
 LDA 1,19
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,18
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,13
 LOC    10
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,12
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA 'THIS IS MM'
 LOC    20
 LDC I,10
 LDC I,10
 CSP  WRS
 CSP  EIO
 LDC I,800000
 STR I,1,64
 LDC I,800000
 STR I,1,60
 LDC I,800000
 STR I,1,56